home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 1-Reference / •ARPL Stacks / Library Help / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1990-12-19  |  4.2 KB  |  30 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>9</cardCount>
  7.     <cardID>4197</cardID>
  8.     <listID>2170</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>------------------------------------------------------------------------
  17. --                          Stack: Library Help                       --
  18. --                          ¬©1990 Medior, Inc.                        --
  19. --                      ¬©1990 Apple Computer, Inc.                    --
  20. --                                                                    --
  21. --                            8/24/90 1:18 PM                         --
  22. --                             Version: 6.0                           --
  23. ------------------------------------------------------------------------
  24.  
  25. on domenu menuItem
  26. global UserName
  27. if UserName is "Peter Meyer" then pass domenu
  28. else if menuItem is in "Quit HyperCard Home" then LinkToQuit menuItem
  29. else if menuItem is in "First Next Last Prev Back Recent" then
  30. beep
  31. else pass doMenu
  32. end domenu
  33.  
  34. on LinkToQuit where
  35. global gMainStack6,gLastCard
  36. set cursor to 4
  37. if gMainStack6 is not "" then
  38. set lockmessages to true
  39. set lockScreen to true
  40. put long id of this cd into gLastCard
  41. go stack gMainStack6
  42. send LinkToQuit to this stack
  43. else
  44. if where = "Home" then
  45. visual barn door close
  46. go home
  47. else send "domenu Quit HyperCard" to HyperCard
  48. end if
  49. end LinkToQuit
  50.  
  51. on LinkToMap
  52. global gMainStack6
  53. if gMainStack6 is not "" then
  54. set cursor to 4
  55. go cd "Map" of stack gMainStack6
  56. unlock screen with iris close
  57. else
  58. beep
  59. answer "The stack containing the map is not available now!"¬¨
  60. with "Cancel"
  61. end if
  62. end LinkToMap
  63.  
  64. Function linenumber
  65.  
  66. --// Used to find the line number that was clicked on in a
  67. --// either a scrolling field or a non-scrolling field
  68.  
  69. if the style of target is "scrolling" then
  70. put (((the scroll of target)¬¨
  71. +(the clickV)-(top of target))¬¨
  72. / the textheight of target) into temp1
  73. else
  74. put (((the clickV)-(top of target))¬¨
  75. / the textheight of target) into temp1
  76. end if
  77.  
  78. put trunc (temp1) into temp2        --// Fudge factor for wide margins
  79. if temp1-temp2 ‚â• .25 then
  80. return trunc(temp2) + 1
  81. else return trunc(temp2)
  82.  
  83. end linenumber
  84.  
  85. ------------------------- Function SelectLine ----------------------------
  86.  
  87. Function selectLine lineNumber,fldName
  88. do ("put line lineNumber of " & fldName & " into theLine")
  89. if theLine is not "" then
  90. do ("put (number of chars of line 1 to lineNumber of" && fldName &¬¨
  91. ") + 1 into endChar")
  92. do ("select char (endChar - length of theLine) to endChar of" &&¬¨
  93. fldName)
  94. else return false
  95. end selectLine
  96.  
  97. ------------------------- Function BtnSelect ----------------------------
  98.  
  99. function BtnSelect lineNum,fldName
  100. --// Handles location and hilite of cd btn in category list.
  101.  
  102. put top of fldName into y
  103. put the textheight of fldName into txtht
  104. put y - 3  + (txtht*lineNum) into btny
  105. put item 1 of the loc of cd btn "hiliter" into btnx
  106. set loc of btn "hiliter" to btnx,btny
  107. set hilite of btn "hiliter" to true
  108. end btnselect
  109.  
  110. </script>
  111.     <background id="2782" file="background_2782.xml" name="General" />
  112.     <background id="2958" file="background_2958.xml" name="Presentations" />
  113.     <background id="4490" file="background_4490.xml" name="Menu" />
  114.     <card id="4197" file="card_4197.xml" marked="false" name="Menu" owner="4490" />
  115.     <card id="4714" file="card_4714.xml" marked="false" name="1-Setting Up the Library CD" owner="2782" />
  116.     <card id="4926" file="card_4926.xml" marked="false" name="2-Navigation" owner="2782" />
  117.     <card id="5350" file="card_5350.xml" marked="false" name="3-Loading Correct Fonts" owner="2782" />
  118.     <card id="6137" file="card_6137.xml" marked="false" name="4-Updating Contents" owner="2782" />
  119.     <card id="6551" file="card_6551.xml" marked="false" name="5-About This Stack" owner="2782" />
  120.     <card id="7057" file="card_7057.xml" marked="false" name="1-Viewing Presentations" owner="2958" />
  121.     <card id="11540" file="card_11540.xml" marked="false" name="2-Customizing Presentations" owner="2958" />
  122.     <card id="12097" file="card_12097.xml" marked="false" name="3-Presentations on AppleLink" owner="2958" />
  123. </stack>
  124.